itocket Lander 



(under 3X bytes to run) 



litis low-altitude, vertical rocket lander program allows you to choose 
one of three primaries to land upon, and one of three seta of initial 
conditions. bote that velocity is negative downwards, positive upwards. 

When prompted, enter the rocket fuel burn rate (zero for free-fall), 
a comma, then the number of seconds for that burn rate to be used. The 
burn rate may be a positive integer or decimal number, but is limited to a 
■HTiiia of 100 kg. /sec. Time nust be an integer number of seconds; any 
fraction of a second is treated as a whole second. 

Remember that the best way to land is to wait as long as possible 
before making a rocket burn, then burn at the ■ail— rate to slow down. 
If you run out of fuel, the ship automatically free-falls to impact. 
After surface impact, a message and the impact status are printed. 

The program correctly allows for the decreasing mass of the ship due 
to the fuel that has been burned in calculating the change in velocity for 
the rocket burn. Line 310 of the program slows down the program operation 
to about one second for each ship's second. Line 730 printp the output 
headings again if they have been scrolled off the top of the screen. 

The excess fuel supplied increases in the order: >'oon, Mars, Earth, 
and also as the altitude increases. Therefore, what appears to be the 
easiest landing (Koon, low altitude) if? actually quite elope on fuel. 
Even on this one, a sucessful landing can be made with over 7 kilograms 
of fuel left over. Can you do it? 



Delmer D. liinriche 
P116 S. £. 377th Ave. 
Vaehougal , "'ashington 



98671 



98671 



DELAY LOOP 



10 CLS : PRINT : PRINT CHR*<23> : PRINT TAB<8^ "ROCKET LANDER' 

20 PRINT TAB<6> "BY D. D. HINRICHS" 

29 ' 2116 S. E. 377TH AVE. 

40 ' WASHOUGAL, WASHINGTON 

50 FOR 1=1 TO 1000 : NEXT I 

60 CLS : PRINT "DO VOU WANT TO LAND ON:" 

70 PRINT " 1. EARTH" 

80 PRINT " 2. MOON" 

90 PRINT " 3. MARS" 

100 JNPUT "ENTER NO. FOR DESIRED PRIMARY" .■ P 

110 ON P GOSUB 550, 560, 570 

120 PRINT PRINT "WHAT INITIAL CONDITIONS DO VOU WANT?" 

130 PRINT" 1. ALTITUDE = 1000 METERS, VELOCITY = -50 M/SEC" 

ALTITUDE = 10000 METERS. VELOCITY = -100 M/SEC" 
ALTITUDE = 2OOO0 METERS, VELOCITY = -100 M/SEC" 
FOR INITIAL CONDITIONS" i C 

600 

' SHIP'S MASS- rnTffl_ MASS, * FUEL 
' PRINT HEAfUNG 



140 PRINT" 
150 PRINT" 
160 INPUT 



'ENTER NO 
170 ON C GOSUB 580, 590 
180 M=18000 : TM=M+FU 
190 CLS : GOSUB 610 



200 PRINTS 64, ; : GOSUB 640 

210 L=L+1 

220 INPUT "ENTER BURN RATE <.KG/SEC> 

230 IF B>100 PRINT "MAX BUPN RATE = 

240 FOR T=l TO N 

250 NM=TM-B : IF NM<M THEN NM=M : 

260 NV=V+4000*LOG<:TM/NM> , 

270 NV=NV-G 

288 NA=AL+i'!V+NV>/2 

290 IF NA<=8 GOTO 288 

300 TM=NM : V=NV : AL=NA RJ=TM-M 

310 FOR 1=1 TO 300 : NEXT i 

328 GOSUB 648 



' SHOU STATUS 

ENTRY FOR NEXT COMMAND 

, MO. OF SEC " ; 8, N 

180" P-100 ■ i. =L+1 

B=TM-M ' UPDATE MASS 
UPDATE V FOP POCKET BUPN 
UPDATE V FOR GRAY I TV 

' UPDATE ALTITUDE 
ON SURFACE? 
: ET=ET+1 ' NO, ' 'POATE 

' DELAY LOOP 

' SHOW STATUS 



348 
250 
268 
370 
280 
298 
408 
418 
420 
430 
440 
458 
460 
470 
488 
498 
580 
510 
520 
520 
540 
550 
560 
570 
588 
590 



IF ET+L>12 GOSUB 618 : PRINT"? 968, 

IF NM=M AND FF=0 THEN FF=1 PRINT "FREE FALL, FUEL GONE" 

IF FF=1 THEN B=8 : GOTO 270 

NEXT T 
GOTO 210 

' INTERPOLATION OF EXACT IMPACT 
VI=NV-<V-NV>*NA/<AL-NA) 
TT=ET+1+NA/ 1. AL-NA> 
RF=NM-M-B*NA/ < AL-NA > 
PRINT 

IF VK-1 PRINT "******** YOU CRASHED +*****+*" ; GOTO 450 
PRINT "CONGRATULATIONS YOU HAVE LANDED SAFELY!" 



RETURN FOR NEXT COMMAND 
STATUS 

VELOCITY OF IMPACT 
TOTAL TIME 
REMAINING FUEL 



PRINT "YOUR IMPACT VELOCITY WAS" ; ABSO/I) ; 

PRINT "YOU HAVE" ; RF ; "KG. OF FUEL LEFT" 

PRINT "IT TOOK YOU" ; TT ; "SECONDS" 

GOSUB 610 : PRINT© 960, .■ 

INPUT "DO YOU WANT TO TRY AGAIN <V/N>" ; 2* 

IF z$=»V" RUN 

CLS : IF VK-1 PRINT "BETTER LUCK NEXT TIME' 

PRINT "HAVE A GOOD DAY" 

END 

' - - - ALL SUBROUTINES AFTER THIS - 
G=9. 81 : FU=1800 : H*=" (EARTH) " : RETURN 
G=l. 62 . FU=200 : H*="<M00N)" : RETURN 
G=2. 74 : FU=500 : H*="<MARS>" : RETURN 
AL=10O0 : V=-50 : RETURN 
AL=10000 : V=-100 : FU=FU*10 



"METERS/SEC 



RETURN 
RETURN 



600 AL=20000 : V=-200 FU=FU*20 

610 ' HEADING 

620 PRINT0 0, "TIME, SEC. ALTITUDE, M. 

620 PRINT "FUEL, KG. " ; H* ; : RETURN 

640 ' STATUS 

650 PRINT USING "##### " > ET ; 

S6Q PRINT USING "###########. #««" , AL, V, FU 



DO VOU WANT TO LAND ON: 

1. EARTH 

2. MOON 
3 MARS 

ENTER NO. FOP DESIRED PRIMARY? 2 

WHAT INITIAL CONDITIONS DO VOU WANT? 

1. ALTITUDE = 1O0O METERS, VELOCITY = 

2. ALTITUDE = 10OOO METERS, VELOCITY = 

3. ALTITUDE = 2O8O0 METERS, VELOCITY = 
ENTER NO. FOR INITIAL CONDITIONS? 1_ 



VELOCITY, M/SEC 



RETURN 



-50 M/SEC 
-100 M/SEC 
-200 M/SEC 



TIME, 





SEC. 



ALTITUDE, M. 
1800. 000 
ENTER BURN RATE <. KG/SEC) 

1 950 171 

2 980. 683 

3 851. 528 

4 882. 737 

5 754. 281 
ENTER BURN PATE < KG/SEC- 

6 786. 170 

7 658. 486 

8 618. 990 
? 563. 922 

517 204 
■' KG/SEC > 



L8 

E^FJR BURN RATE 



'ELOCITV, M/SEC 

-50. 000 
NO. OF SEC ? 

-49. 659 

-49 316 

-48 973 

-48. 629 

-48. 234 
NO. OF SEC ? 

-47. <="28 

-47 590 

-47. 242 

-46. 892 

-46. 543 
NO. OF SEC. -■■ 



5, 



FUEL, KG. 

200. 000 

5 

195 O00 
190. 000 
185. 000 

ISO. 000 

175. 000 

170*000 

165. OOO 

160. OOO 

155 000 

150. 000 



(MOON) 



TRS-39 USERS GROUP - NEWSLETTER - 
SEPTEMBER i?79, VOLUME 2, NUMBER 9 - PflGE 81 



TIME, 


SEC. 


ALTITUDE, M. 


VELOCITY, M/SEC 


FUEL, KG 


15 






288. 892 


-44. 778 


125. 900 


ENTER 


BURN 


RATE 


< KG/SEC > • 


NO. OF SEC. ? 




16 






244. 292 


-44. 422 


120 000 


17 






260. 048 


-44 065 


115 000 


18 






156. 162 


-43 708 


110. 000 


19 






112. 633 


-43 350 


105. 000 


20 






69. 463 


-42. 991 


100. 000 


ENTER 


BURN 


RATE 


< KG/SEC) , 


NO. OF SEC. » 




21 






26. 652 


-42. 621 


95 00O 



(MOON? 



******** VOU CRASHED ******** 

VOUR IMPACT VELOCITY WAS 42 4044 METERS, SEC. 

VOU HAVE 91. 8689 KG. OF FUEL LEFT 

IT TOOK VOU 21. 6278 SECONDS 

DO VOU WANT TO TRV AGAIN <V/N>? _ 



Orbitor 



(over 15K bytes to run) 



Ibis program allows you to simulate landing a rocket-ship at a 
specified site from orbit around any one of eight solar system primaries. 
It accurately simulates the celestial mechanics involved in landing from 
orbit. 

The ship is initially set at a random position on an elliptical orbit, 
either clockwise or counterclockwise. To keep track of the ship's 
position accurately enough to allow a smooth landing, it is necessary to 
use double precision calculations. The two-dimensional ship's orbit is 
stored in rectangular coordinates (x, Y) , but all displays are in polar 
coordinates (magnitude, angle) to make them easier to interpret. 

The program allows you to save and recall the ship's status at any 
time on cassette tape. This is especially useful to pave the status 
before trying a potentially "hazardous" maneuver. 

Tou may select either a graphic output display (with only the current 
status shown numerically) , or a tabular display (showing numerical data for 
several past time segments). v'hen near to landing (altitude under 10 km.) 
the altitude display changes from km. to meters, and the velocity display 
changes from ka./sec. to meters/sec. If the graphic display was selected, 
it changes from showing the entire primary and its surrounding space to 
show a 10 km. high by 70 km. wide area, centered on the landing site. 

The ship's motion is calculated as a series of segments. The segment 
time may be set to any integer or decimal number up to 60 seconds. If no 
entry is made, the program uses 60 seconds. The nuaber of segments to be 
calculated at one time may be ret to any integer. If no entry is made, 
the program uses one segment. The rocket fuel burn rate may be set to any 
integer or decimal number up to 100 kg. /sec. If no entry is made, the 
program uses zero burn rate (free-fall). Thus three quick presses of 
"a«Tffi" without entries will give one, 6C second free-fall sejraent. if 
the burn rate was not zero, a rocket thrust direction must be selected, 
from to + 180°. If no entry is made, the program uses 0° (straight up 
when landing at the landing site). If at any time during the calculation 
of a series of segments, you press any key, the program will stop, and 
prompt for your input. The status remains the last status displayed. 

The ship has an "on-board computer", to calculate various things to 
help you to pilot the ship correctly. To use it, enter "9?" as a segment 
time. (This also gives access to the routine to save the ship's status on 
tape). These calculations are pretty much relf-ex-l.^natory excect for the 
Hohmann transfer: A Hohmann transfer is a ainimum- fuel -usage maneuver to 



(JO from one circular orbit to another circular orbit at a different 
altitude. it i. half of an ellipse, tpngent to or.n circular orbit at each 
end. ..'ce sxetch. The delta velocities are the changes in the velocity 
required. 

Telmer J. . inrichs 
~U6 s. £. 377th Ave. 

-ashcugal, Washington ??671 



fhia is a long program to key in. 
cassette pjid send it to you. 



For CP.0O I'll record it or. 



D. 



H. 




Delta velocity 
to circularize 



Initial circular orbit 

Sljiptical Hohmann 
transfer orbit 

Final circular orbit 



Delta velocity to 
initiate transfer 



Typical Hohmann Transfer 



10 


CLS : 


20 


PRINT" 


30 


' <C 


40 


s 


50 


' 


60 


DEFINT 


70 


Z*='"' 


80 


IF Z*= 


90 


IF Z*= 


100 


PRINT 


110 


PRINT 


120 


PRINT 


130 


PRINT 


140 


PRINT 


150 


PRINT 


160 


PRINT 


170 


PRINT 


188 


PRINT 


198 


PRINT 



RANDOM 

* * ROCKET-SHIP LANDING FROM RANDOM ORBIT * *" 

) BV D D H INRICHS 1979 

2116 S. E. 377TH AVE. 

WASHOUGAL, WN 98671 

I-N : DEFDBL P-V : M*1E4 : PI =3. 1415926535897932 

: PRINT ; INPUT "DO VOU WANT INSTRUCTIONS <V OR N>"; Z$ 

"V" Q0SU6 3310 : GOTO 110 

"N" GOTO 118 

"VOU MUST ANSWER V OR N'. TRV AGAIN" : GOTO 70 

PRINT "SELECT THE PRIMARY THAT YOU WISH TO ORBIT. " 

"VOUR FUEL SUPPLY WILL BE ADJUSTED ACCORDINGLY " 

" 1 MERCURY" 

" 2 THE MOON" 

" 3. MflRS" 
« 4 iq>, 

" 5 EUROPA" 
" 6. GANYMEDE" 
" 7 CALLISTO" 
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200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
318 
320 
330 
340 
358 
360 
370 
388 
398 
408 
410 
420 
438 
448 
458 
468 
478 
488 
498 
588 
518 
520 
538 
540 
550 
560 
570 
588 
598 

600 

610 
628 

638 
648 
658 

668 
678 
680 
690 
700 
710 
720 
738 
748 
758 
768 
770 
780 
790 
888 
818 
828 
338 



TRY AGAIN" : GOTO 118 



PRINT " 8. TITAN" 

PRINT " 9. RECALL PREVIOUS STATUS FROM CASSETTE TAPE" 

N=0 : INPUT "WHICH DO VOU WANT TO TRY" , N CLS 

IF N=9 GOTO 2228 

IF N>8 AND NO GOTO 260 

PRINT "YOUR ENTRY"; N ; "IS ILLEGAL 

INPUT "DO YOU WANT GRAPHIC OR TABULAR DISPLAY 

IF Z*="G M OP Zt="T" GOTO £90 

PRINT "YOU MUST ANSWER 'G' OR 'T'. 

CLS : PRINT "SELECTING RANDOM ORBIT" 

RESTORE : FOR J=l TO N*4-2 : READ H* : NEXT J 

READ H*, GC, SR, SM 

AN=RND<0>*2*PI-PI : RD=SR+188+RND<0)*2400 



(G or t: 



z$ 



TRY AGAIN" : GOTO 268 



XP=RD*COS<AN> 
VL=SQR<GC/RD> 



.VP»RD*SIN<AN> 



SHIP'S X & V POSITION 
SHIP'S VELOCITY 



IF RND<8». 5 THEN AN=AN+PI/2 ELSE AN=AN-PI/2 



SHIP'S X A V VELOCITY 
ANGLE FOR RANDOM DELTA V 
DELTA VELOCITY TO SURFACE 



XV=VL*COS<RN) : YV=VL*SIN<AN> 

AV=RNDC0)*2*PI-PI : R=SR/RD 

DV-VL*<SQR<2*R/<1+R>>-1> 

XV=XV+RND<0>*DV*COS<AV> : YV=YV+RND<0>*DV*SIN<AVJ -^ 

IF Z*="G" THEN IG=1 ELSE GOSUB 2790 

GOSUB 2450 

IF IG=0 INPUT "PRESS 'ENTER'" ; Z$ : CLS : L=8 : GOSUB 2450 



NS=0": INPUT 
NS^ABSCNS) : 
RB=8 : INPUT 
RB=ABSCRB> : 



ON-BOARD COMPUTER 
* ST=68 : GOSUB 3828 
DEFAULT 
: GOSUB 3050 
DEFAULT 
RB : GOSUB 2058 
DEFAULT, FREE-FALL 



' REENTRY POINT, COMMAND FOR NEXT SET OF SEGMENTS 
ST=0 : INPUT "SEGMENT TIME, SEC = " ; ST : GOSUB 3050 
ST»ABS<ST> : IF ST=99 CLS : GOTO 1328 
IF ST>60 PRINT "TIME REDUCED TO 68 SEC. 
IF ST=8 THEN ST=60 

"NO. OF SEGMENTS = " .■ NS 
IF NS=0 THEN NS=1 
"BURN RATE, KG. /SEC. = 
IF RB=0 GOTO 580 
IF RBM00 PRINT"BURN RATE REDUCED TO 108" : RB=100 : GOSUB 2828 
DT=0 : INPUT "THRUST DIRECTION, DEG. = " .- DT GOSUB 2850 
IF ABS(DTK=180 THEN DR=DT*PI7130 GOTO 580 
PRINT "ANGLE"/ DT; "IS TOO GREAT. TRY AGRIN" : GOSUB 2820 
GOTO 540 

FOR K»l TO NS ' CALCULATE EACH SEG 

IF RB=0 THEN XR=XV : YR=YV : SN=SM : GOTO 640 FREE-FALL 
SN»SM-ST*RB ' SHIP'S NEW MASS 

IF SN<=M PRINT "OUT OF FUEL" : SN=M : RB=0 . GOSUB 3020 
DV=4*L0G-:SM/SN) ' BURN DELTA VELOCITY 



XR=XV+DV*C0S<DR> : VR«W*OV*SIN<OR) 

XG=<XR+XVV2 : YG=<VR+VV>,'2 

PX=XP+XG*ST/2 : PY=VP+YG*ST/2 

RG=SQR < PX*PX+PV*PY > 

RG=RG-GC* < ST/RG > * < ST/RG ) ,16 

QA=ATN<PY/PX>. 

IF PX<0 THEN QA=OA+PI : IF PV CO THEN 

VG*GCARG*RG>*ST 

VX=XR-VG*C0S<0FP : VY=VR-VG*SIN-'QA) 

PX=XP+ ( XV+VX • *ST/ "d : PV=YP+ '. VV+VY > *ST 

p=PX*PX+PY*PY : R*SQP<P) 

IF INKEY*O mm GOTO 448 

IF R-SR<18 GOTO 788 

IF LD=1 THEN LD=8 : 

GOTO 318 

S=R : R=''P/S+S >/2 ■ 

IF LD=8 THEN LD=1 

IF R-SRO0 GOTO 368 

RO=R :XP=PX :YP=PV 

GOSUB 2450 

NEXT K 



L=8 



L»i 



NG=W : 

P GOTO 
LG*8 : 



CLS 

: -'8 
CLS 



: XV=VX : YV=VY : SM 



' X & V VEL AFTER B 
VEL. TO EST GRAVITY 
POS. to EST. GRAVITY 
RADIUS FOR GRAVITY 
RAD I LIS CORRECT I ON 
ANGLE FOR GRAVITY 
0fl=QR-2*PI 
GRAVITY DELTA VEL 

' FINAL VELOCITY 
*2 ' FINAL POSITION 
' SHIP'S RADIUS 
' EMERGENCY STOP- 
' AL T < 18 KM. ? 
IF TQ=0 THEN NG=1 

' ADJUST RADIUS 

IF IG=8 THEN LQ-1 
' SURFACE IMPACT'' 
=SN : TM=TM+ST/60 

' LIST NEW STATIJT 
' NEXT SEGMENT 



340 GOTO 440 ' NEXT COMMAND 

850 

868 ' IMPACT POUTINE 

370 Q=XP*XP+YP*YP : RI=SQR<:Q> ' INITIAL SHIP'S RADIUS 

388 R=RI : RI = 0P/R+RV2 : IF RORI GOTO 388 ' ADJUST RADIUS 

390 Q=PX*PX+PY*PY : RF=SOR<Q> ' FINAL SHIP S RADIUS 

900 R=RF : RF=(Q/R+R)/2 : IF RORF GOTO 980 ' ADJUST RADIUS 



' RATIO, C/D 
FINAL VELOCITY 
X & V IMPACT VEL. 
IMPACT VELOCITY 



918 RA=<SR-RFV<RI-RF> 

920 FV=SQR<VX*VX+VY*VY> 

930 XI=VX+RA*<XV-VX> : VI=VY+RA*<W-VV> 

940 QV=(FV+RA*<BV-FV))*1800 

950 PRINT 

960 IF GV>1 PRINT "******** VOU CRASHED ******** "; :GOTO 930 

978 PRINT "CONGRATULATIONS - - - YOU ARE DOWN SAFELY" ; 

980 PRINT " ON " ; H* ; "!!!!" 

990 PRINT "YOUR IMPACT VELOCITY WAS " ; GV ; " METERS/SECOND" 

1000 DI=ATN<YI/XI>*180/PI DIRECTION OF IMPACT 

1010 IF XK0 THEN DI=DI+180 : IF VK0 THEN DI=DI-360 

1020 PRINT "YOUR DIRECTION OF IMPACT WAS " = DI ; " DEGREES" 

1030 AF=ATN<PY/PX> ' FINAL POSITION ANGLE 

1040 IF PX<0 THEN AF=AF+PI : IF PY<0 THEN AF=AF-2*PI 

1050 AI=ATN<VP/XP> - ' INITIAL POSIT. ANGLE 

1060 IF XP<0 THEN AI=AI+PI : IF YP<0 THEN AI=AI-2*PI 

1070 DM=SR*<AF+RA*(:AI-AF)>*1000 ' MISS DISTANCE 

1088 PRINT "YOU MISSED THE LANDING SITE BY " ; DM ; M METERS" 

1090 FR=SN+RA*<:SM-SN>-M ' FUEL REMAINING 

1108 PRINT "VOU HAVE " J FR ; " KILOGRAMS OF FUEL LEFT" 

1110 CT=TM+<ST-RA*STV60 ' CUM. TIME TO IMPACT 

1120 PRINT "IT TOOK YOU " i CT ; " MINUTES TO GET DOWN" 

1138 Z$="" : PRINT 

1140 IF IG=0 GOSUB 2360 : PRINT8 963, ; 

1150 INPUT "DO YOU WANT TO TRY ANOTHER LANDING (V OR N)" , Z* 

1160 IF Z$= "V" RUN 

1178 PRINT : PRINT "UNTIL NEXT TIME, THEN" 

1180 END 

1190 

1208 ' CONSTANTS FOR VARIOUS PR I MARYS 

1210 DATA 0, "MERCURY", 21522, 2440, 48000 

1220 DATA "THE MOON", 4981, 1739, 25808 

1238 DATA "MARS", 43843, 2393, 68888 

1240 DATA "10", 5790, 1320, 25000 

1250 DATA "EUROPA", 3190, 1525, 20000 

1260 DATA "GANYMEDE", 9740, 2635, 20880 

1278 DATA "CALLISTO", 6428, 2458, 25888 

1288 DATA "TITAN", 9170, 2900, 20000 

1290 

1208 ' - - - ALL SUBROUTINES AFTER THIS - - - 

1210 

1220 "HE "ON-BOARD COMPUTEP" ROUTINE, TO ASSIST PILOTING 
1220 PRINT : PRINT "WHAT DO VOU WANT TO CALCULATE?" ■ 
(FOR LANDING ON " , H* ; ">" 

1. VELOCITY TO MAINTAIN A CIRCULAR ORBIT" 

2. HOHMANN TRANSFER TO A DIFFERENT RLTITUDE" 
2 ORBITSL PERIOD" 

4 DELTA VELOCITY TO CHANGE STATUS" 

5 FUEL USAGE FOR GIVEN DELTA VELOCI T Y" 

6. SAVE SHIP'S CURRENT STATUS ON CASSETTE TAPE" 

7. END CALCULATIONS AND RETURN TO PILOTING" 
'ENTER NO OF DESIRED ROUTINE" .= N : CLS 

1423 IF N=7 THEN L=8 : LG=8 : NG=8 : GOSUB 2458 : GOTO 440 

1440 IF N>0 AND N<7 GOTO 1460 

1458 PRINT "YOUR ENTRY", N* "IS ILLEGAL. TRY AGAIN" : GOTO 1220 
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1240 PRINT 
1258 PRINT 
1368 PRINT 
1278 RC'INT 
1338 PRINT 
1290 PRINT 
1480 PRINT 
1410 PRINT 
1420 N-0 : 



INPUT 



J.-.00 

1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1559 
1560 
1570 
1580 
1590 

1600 

1618 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 

1700 

1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1818 
1820 
1838 
1840 
1850 

I860 
1870 
1880 
1898 
1900 
1910" 
1920 
1930 
1940 
1950 
I960 
1970 
1980 
1990 

2000 
2010 

2020 
2030 
2048 
2050 
2060 
2070 
2080 
2090 



UN N GOSUB 1498, 1580, 
CLS : GOTO 1320 



1830, 1948, 2160, 2150 



CLS:PRINT"* * * CIPCULAP ORBIT VELOCITY * * *" 

AL»8 : PRINT INPUT "ENTER ALTITUDE IN KILOMETERS" ■ AL 

IF RL<0 PRINT"RLTITUDE < IS ILLEGAL TRY AGAIN" : GOTO1500 

CV=SQR<GC/<AL+SR>> 

PRINT : PR I NT "CIRCULAR ORBIT VELOCITY = ", CV .; "KM. /'SEC " 

GOSUB 2300 

IF Z*«"A" GOTO 1490 

IF Z$»"R" RETUPN 



":* 



HOHMANN TRANSFER CALCULATION 



CLS : PRINT 

AI-0 : AF-0 : PRINT 

INPUT"ENTER INITIAL , FINAL ALTITUDES IN KILOMETERS", AI, AF 

IF RI>*0 AND AF>=0 GOTO 1630 

PRINT "RLTITUOE < IS ILLEGAL. TRY AGAIN" : GOTO 1590 

R«<AF+SR>/<flI+SR> ' RATIO OF INITIAL, FINAL RADII 

CV«SQR<GC/<AI+SR>> ' INITIAL CIRC ORBIT VELOCITY 

DI«CV*<SGR<2*R/<1+R>>-1> ' DELTA V TO INITIATE TRANSFER 

C0»CV*<SQR<1/R>-SQR<2/<R*<1+R>>>> ' TO CIRCULARIZE ORBIT 

FV«SQR<GC/<AF+SR>> ' FINAL CIRCULAR ORBIT VELOCITY 

A«<AI+AF>/2+SR ' AVERAGE RADIUS 

HT-PI*SQR<A*A*A/GC>/60 ' HOHMANN TRANSFER TIME 

PRINT 

-INITIAL CIRCULAR ORBIT VELOCITY * ?i CV; 

"DELTA VEL. TO INITIATE TRANSFER * "; DI; 

INITIAL TRANSFER ORBIT VELOCITY 

"HOHMANN TRANSFER TIME » "J HT j 
PRINT "FINAL TRANSFER ORBIT VELOCITY ■ "; FV-CO; "KM. /SEC 
PRINT "DELTA VEL. TO CIRCULARIZE ORBIT « "j CO; "KM /SEC 

-FINAL CIRCULAR ORBIT VELOCITY - "; FV ; "KM. /SEC. ' 

"TOTAL DELTA V FOR ORBIT CHANGE » "; DI+CO; "KM. /SEC 
GOSUB 2380 
IF Z»-"A" GOTO 1588 
IF Zt«"R" RETURN 



PRINT 
PRINT 
PRINT- 
PRINT 



PRINT 
PRINT 



"KM. /SEC 
"KM. /SEC 
i ";CV+DI> "KM. /SEC. 
"MINUTES" 



CLS: PRINT"* * * ORBIT PERIOD CALCULATION * 
AX-0 : AI=0 : PRINT 

INPUT "ENTER MAXIMUM , MINIMUM ALTITUDES IN KM. " i 
IF AX<0 OR AK0 PR I NT "ALTITUDE < 0. TRY AGAIN" : 



; AX, A I 
GOTO 1848 



AVERAGE RADIUS 
' ORBITAL PERIOD 
OP ; "MINUTES" 



A"<AX+AI>/2+SR 

0P«2*P I *SQR < A*A* A/GC ) /60 

PRINT : PRINT "PERIOD FOR ONE ORBIT = 

GOSUB 2308 

IF Z*«"fi" GOTO 1830 

IF Z*»"R" RETURN 



CLS: PRINT"* * DELTA VELOCITY TO CHANGE STATUS 

RD=0 : AV=8 : DD=0 : DV«8 PRINT 

INPUT "ENTER INITIAL DIRECTION, DEGREES" 

IF ABS<AD)>130 PRINT-ANGLE IS > 13ft FRY 

INPUT "ENTER INITIAL VELOCITY, KM. /SEC. " 

IF AV<0 OR AV>9 PRINT AV, "IS ILLEGAL, TPY AGAIN" GOTO 1986 



AD 

IGAIN" GOTO 195i? 

A 1 '.' 



INPUT "ENTER DESIRED DIRECTION, DEGREES" 
IF ABS<DD>: ISO PRINT"ANGLE IS > ISO. TR 
INPUT "ENTER DESIRED VELOCITY, KM /SEC " 
IF DV<0 OR DV>9 PPINT Wi "IS ILLEGAL, 
AD»AD*P I/138 . DD=DD*PI/1S0 
DX=DV*COS < DD > -A V*COS < AD > 
DY-DV*S I N < DD > -AV*S I N < AD ) 
DV=SQR<DX*OX+DY*DY> 
DD* ATN < D V/DX ) *180/P I 
IF DX<0 THEN DD=DD+180 



:-d 
again" goto 2008 

" ; DV 
TRV AGAIN" GOTO 2020 
ANGLES IN RADIANS 
DELTA :; VELOCITY 
' DELTA V VELOCITY 
DELTA VELOCITY 
DIRECTION, DEGREES 
IF DY<0 THEN DD-DD-260 



2100 

2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
220O 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2358 
2360 
2370 
2288 
2390 
2400 
2410 
2420 
2430 
2440 
2458 
2460 

2470 
2488 
2490 

2500 
2510 
2520 
2530 
2540 
255© 
2568 
2570 
2580 
2590 
26Qe 
2610 
2620 
2630 
2648 
2650 
2660 
2670 
26S0 
2690 
2700 
2710 
2720 
2730 



PRINT PPINT"DIRECTION OF DELTA VELOCITY = "; DD- "DEGREES" 

PRINT "REQUIRED DELTA VELOCITY = " • DV , "KM. .'SEC. " 

GOSUB 23O0 

IF Z*»"A" GOTO 1940 

IF ZS="R" RETURN 

CLS PR I NT "FUEL USAGE REQUIRED FOR A GIVEN DEL^A VELOCITY" 

PRINT "(ASSUMING A 4 KM. /SEC, ROCKET EXHAUST VELOCITY)" 

DV=0 : H=0 PRINT 

INPUT "DESIRED DELTA VELOCITY, KM /SEC. " , DV 

IF DV<0 OR DV>9 PRINT DVj "IS ILLEGAL, TRY AGAIN" GOTO 2180 

INPUT "SHIP'S TOTAL MASS, KG. <DEFAULT, PRESENT MASS^" H 

IF H<0 OR H>1E5 PRINT H; "IS ILLEGAL, TRY AGAIN" GOTO 2210 

IF H=0 THEN H«SM 

F=H-H/EXP<DV/4> 

PRINT : PRINT "REQUIRED FUEL USAGE = " ; F , "KILOGRAMS" 

GOSUB 2300 

IF Z*="A" GOTO 2160 

IF Z$«"R" RETURN 



' 'A' AND 'R' PRINT ROUTINES 
PRINT : Z*- M " 

INPUT "ENTER 'A' FOR ANOTHER, 'R' TO RETURN TO MENU* 
IF Z*»"A" OR Z*="R" RETURN 
PRINT "YOU MUST ANSWER 'A' OR 'R' 



2$ 



TRV AGAIN" :GOTO 2308 



' STATUS DISPLAY HERDING 

PRINTt 0, " TIME, POSITION " I 

PRINT "VELOCITY REMAINING" 

IF LD«1 GOTO 2420 ' NEAR LANDING? 

PRINT* 64, " MIN. KM. ALT. DEGREES KM/SEC. 

PRINT " DEGREES FUEL, KG. " ; : RETURN 

PRINT© 64, " MIN. METER fl. DEGREES METER/S 

PRINT " DEGREES FUEL, KG " ; : RETURN 



' CALCULATE STATUS DISPLAY 
RL-RD-SR 



ALTITUDE FROM SURFACE 



DP»ATN< VP/XP ) *180/P I 
IF XP<0 THEN DP=DP+180 
BV»SQR<XV*XV+W*W> : CV-BV 
DV-ATN < YV/XV > *180/P I 
IF XV<0 THEN DV-DV+180 
FOSM-M 

IF LO0 OR IG*0 GOTO 2560 
IF LD«0 RND NG«0 GOSUB 2790 
IF LD»1 AND LG-0 GOSUB 2960 
IF LD«1 THEN AL*RL*1000 : CV«CV*1800 
IF L-0 GOSUB 2360 : PRINT 
' PRINT CURRENT STATUS 
IF IG*1 PRINT!? 128, ; 
PRINT USING "####. #»#" ; CSNG<TM) ; 
PRINT USING "#*»####. *#•" ; AL, DP, CV 
IF IG=0 AND JG»1 GOSUB 3050 : RETURN 
IF LD=1 THEN L»l : GOTO 2720 

' ORBITING GRAPHICS, SHIP 
JG=1 IX=64-VP/SR*14 
IF IX<0 OR DC 127 RETUPN 
IY=30-XP/SR+6 
IF IV<9 OR IV>47 RETURN 
SET-'IX, IY> SET<IX+1, IV> : RETURN 



DEG 



' DIRECTION FROM PRIMARY, 
IF YP<0 THEN DP*DP-360 

SHIP'S NEW VELOCITY 
' SHIP'S VEL. DIRECTION, DEG 
IF W<0 THEN DV*DV-360 

' SHIP'S REMAINING FUEL 
NO GRAPHICS BACKGROUND? 

ORBIT GRAPHICS? 
LANDING GRAPHICS? 
CONVERT TO METERS 
PRINT HEADING? 



DV, FU 

NO GRAPHICS? 
' NEAR LANDING? 



LANDING 
IX=64-VP*6. 4 



jRAPHICS, SHIP 
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2740 
2750 
2760 
2770 
2780 
2790 
2800 

2810 
2815 
2820 
2830 
2840 
2845 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2948 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
2828 
3030 
3840 
3050 
3060 
3870 
3888 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 



IF IX<0 OR IX>127 RETURN 
IV=44-(XP-SR)*3. 2 
IF IV<9 OR IV>44 RETURN 
SET (IX, IV) : RETURN 

' ORBIT GRAPHICS, BACKGROUND 
CLS 

PRINTS 538, CHR*(17S); CHRt < 156 > i CHR*<124>; 
PRINTSTRING*(7, CHRf (131)); CHR*<140)> CHR*<180); CHR* <144> 
PRINTS601, CHR*(198); CHR*<129>; " " • CHR* 'i?l>.= GHP*<±49> 

PR I NTS665, CHR$ ( 175 ) ; CHR* < 144 >; " " ■ CHR$ ( 186 ) ; CHR* ( 133 ) 

PRINTS 730, CHR* (131); CHR* (141); CHR* (164); 
PRINTSTRING*(7,CHR*(176));.CHR*(140); CHR*<135>; CHR*(129) 

FOR 1*0 TO 9 

PRINTS 352+ (1*64), CHR* (191); 

NEXT I 
PRINTS 982, "+180 DEG. " ; CHR*(191) ; " -188 DEG. " = 
PRINTS 576, "+90 DEG. " ; : PRINTS 632, "-98 DEG. "; 
GOSUB 3120 

FOR 1=0 TO 127 : SET < 1, 30) : NEXT I 
PRINTS 604, H* ; 

PRINTS 960, "RADIUS «" ; SR ; "KM. "; 
NG-1 : RETURN 

' LANDING GRAPHICS, BACKGROUND 
CLS 

PRINTS 896, ; : FOR J=l TO 64 : PRINT CHR*(176) ; : NEXT J 
PR I NT0978, "LANDING SITE "; CHR*(190); CHR*(189); " ON *i HS; 
LG»1 : RETURN 



' DELAY LOOP 
FOR J=l TO 1008 



NEXT J 



' LINE CHECK ROUTINE 
L=»L+1 : IF L>13 AND IG=8 GOSUB 2360 
IF IG»0 RETURN 



PRINTS 960, 



Z* 



' CLEAR INPUT LINE AND REPLACE LEGEND 
PRINTS 192, STRING* (36, CHR* (128)) 
IF LD-i GOTO 3138 

PRINTS 288, CHR*(191> ; " 8 DEG. (LANDING SITE)" 
PRINTS 192, ; : RETURN 

' SAVE CURRENT STATUS ON TAPE 
CLS : 0*="ORBIT" 

INPUT "POSITION TAPE, PRESS 'RECOPD' THEN 'ENTER 
CLS : PRINT "SAVING SHIP'S CURRENT STATUS" 
PRINT#-1, 0*, H*, GC, RD, SR, SM, TM, XP. VP, XV, VV, BV, IG, LD 
RETURN 

' GET PREVIOUS STRTUS FROM TAPE 
0*="" 

INPUT "POSITION TAPE, PRESS 'FLPV T HEN "ENTER"'.: Z$ 
CLS : PRINT "RESTORING SHIP'S PREVIOUS STATUS" 
INPUT t-1, 0*, H*, GC, RD- SR, SM, TM, XP, VP. XV, VV, BV, TG, LD 
IF 0*="ORBIT"THEN L=8 LG=0 • JG- < ■ NG=8 : GOSUB 2458 GOTO 448 
PRINT : PRINT "****** WRONG FILE ******" 
PRINT "TRV AGAIN" : PRINT : GOTO 3240 

' INSTRUCTIONS 
CLS 

PRINT "VOU ARE THE PILOT OF A ROCKET SHIP IN A RANDOM " 
PRINT "ELLIPTICAL ORBIT" 
PRINT "AROUND ONE OF EIGHT NEARLV AIRLESS PRIMARIES. " , 



3360 FPINT "VOU MUST CONTROL" 

3378 PRINT "THE TIMING, DURATION, INTENSITY, AND DIRECTION " 

3388 PRINT "OF THE ROCKET" 

3290 PRINT "BURNS SO AS TO LAND GENTLV ( < 1 METER/SEC "• AT 

3408 PRINT "THE TARGET SITE" 

1410 PRINT "''.AT O DEG. ) WITHOUT RUNNING OUT OF FUEL. VOU " 

"MAV PUN ANV" 

"NUMBER OF FREE-FALL OR POCKET BURN SEGMENTS " ; 

"AUTOMATICALLY " 

"OPERATION OF THE ROCKET SHIP IS AS FOLLOWS:" 

" 1. CHOOSE PRIMARV FOR LANDING. <A RANDOM " ; 

"ORBIT IS SELECTED)" 

" 2. ENTER SECONDS FOR EACH SEGMENT. (MAXIMUM 

"A DEFAULT = 68)" 

(ENTER '99' FOR HELP FROM THE 'ON-BOARD " 
"COMPUTER')" 

" 3. ENTER NUMBER OF SEGMENTS. (DEFAULT ■ 1)" 
" 4. ENTER BURN RATE, KG. /SEC. (MAXIMUM = 188, 
" DEFAULT =8)" 

"5. IF BURN WAS MADE, ENTER THRUST DIRECTION. 
"(TO + OR -180)" 

" 6. EVALUATE DISPLAY, THEN RETURN TO STEP 2. " 
- 7. AFTER SURFACE IMPACT, LANDING STATUS IS " 
"INTERPOLATED. " 

"TO CONTINUE, PRESS •'ENTER"" ; Z* 
RETURN 



2428 


PRINT 


34 30 


PRINT 


3440 


PRINT 


3450 


PRINT 


3460 


PRINT 


3470 


PRINT 


3488 


PRINT 


3498 


PRINT 


3580 


PRINT 


3510 


PRINT 


3520 


PRINT 


3530 


PRINT 


3540 


PRINT 


3550 


PRINT 


3568 


PRINT 


3570 


PRINT 


3580 


PRINT 


3590 


PRINT 


3680 


INPUT 


3618 


CLS : 



+ * ROCKET -SHIP LANDING FROM RANDOM ORBIT 

DO VOU WANT INSTRUCTIONS (V OR N)? N 

SELECT THE PRIMARV THAT VOU WISH TO ORBIT. 
VOUR FUEL SUPPLY WILL BE ADJUSTED ACCORDINGLY. 



1. 


MERCURY 


2 


THE MOON 


~ 


MARS 


4 


10 


5. 


EUROPA 


6. 


GANYMEDE 


7 


CALLISTO 


G. 


TITAN 


Q 


RECALL PREVIOUS STATUS FROM CASSETTE TAPE 



WHICH DO VOU WANT TO TRY? 2_ 



TIME, POSITION 

MIN. KM. ALT. DEGPEES 

8. 800 1784. 288 16. 353 
SEGMENT TIME, SEC. = ? 25 
NO. OF SEGMENTS = T 6 
BURN PPTE, KG. /SEC. = ? 25 
THRUST DIRECTION, DEG. = ? 5 



417 

0. 333 

1. 250 

1. 667 

2. 083 
2 500 

SEGMENT " 



1704 520 
1787. 400 
1712. 910 
1721. 140 
1732. 160 
1746. 078 
'<£, SEC = 



15. 838 
15 299 
14. 7*1 
14 21? 
13 671 
13. 120 



VELOCITY REMAINING 

KM. /SEC DEGREES FUEL, KG. 
1. 249 -75 355 15088. 888 



1. 


7-69 


-71 


312 


14375. 000 


•1. 


?97 


-67 


383 


12750. 888 


1. 


I ■■ 1 


-63. 


364 


13125 800 


1. 


2~i 


-59. 


526 


12500. 888 


1. 


421 


-55. 


815 


11875. 888 


1. 


476 


-52 


252 


11250. 888 
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1000 
1910 
1020 
1020 

1040 

1050 
1060 

1070 
1080 

1090 
1108 
1110 

1120 
1130 
1148 
1158 
1168 
1170 
1180 
1190 
1208 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1288 
1290 
1300 
1318 
1320 
1330 
1340 
1350 
1368 
1370 
1388 

2000 

2010 
2020 
2030 
3080 
2010 
2820 
2020 
2040 

4000 

4010 
4020 
4020 
4040 

5000 
5010 

5020 
5020 
5040 
5060 
5870 

7000 



=== GENERALIZED "MENU" PROGRAM FOR TRS-80 DISK BASIC === 
STEVE MflCGREGOR, 3701 W WETHEPSFIELD, PHOENi: *I S5029 



INSTRUCTIONS — 

' PLACE A COPY OF THIS PROGRAM ON EACH DISK CONTAINING 

' BASIC-LANGUAGE PROGRAMS, AND INSERT DATA STATEMENTS IN 

' LINES 6000-6220 CONTAINING THE FILENAME AND A SHORT 

' DESCRIPTION OF EACH PROGRAM. (SEE LINES 5006- FOR THE 

' FORMAT OF THE DATA STATEMENTS. ) 

' KEEP THE LIST OF PROGRAMS CURRENT BV ADDING A DATA LINE 
' FOR EACH NEW PROGRAM ADDED TO THE DISK, AND DELETING THE 
' LINE FOR EACH PROGRAM DELETED. 

' WHENEVER THE BASIC COMES ON-LINE, TVPE //RUN "MENU"// TO 

' LOAD AND EXECUTE THE MENU PROGRAM, WHICH WILL DISPLAV A 

' LIST OF THE PROGRAMS ON THE DISK. THEN DO ONE OF THE 

' FOLLOWING: 

/ 

' TO LOAD AND EXECUTE A PARTICULAR PROGRAM FROM THE MENU, 
' TVPE THE NUMBER OPPOSITE THE DESCRIPTION, AND PRESS THE 
' //ENTER// KEV. 

' TO EXIT TO BASIC, PRESS THE //BREAK// KEV. 

' TO EXIT TO TRSDOS, TVPE A ZERO <«>, AND PRESS //ENTER//. 

' IF THE DESIRED PROGRAM IS NOT ON THIS DISK, REMOVE THE 
' DISK AND INSERT THE CORRECT ONE. THEN PRESS //ENTER// 
' TO LOAD THE "MENU" PROGRAM FROM THE NEW DISK. 

' WHEN A PROGRAM HAS COMPLETED, IT IS MOST CONVENIENT TO 

' HAVE IT TERMINATE BV EXITING TO THE MENU INSTEAD OF TO 

' BASIC, BV EXECUTING THE STATEMENT //RUN "MENU"// AS THE 

' LAST LINE OF THE PROGRAM, INSTEAD OF //END//. 

CLEAR 50: DIM P$<24) 

CLS: FOR 1=24 TO 88 STEP 64: PR INTO I, ; : FOR J=8 TO 11 

READ T: PRINT CHR$<128+T); : NEXT J, I 

DATA 29, 24, 21, 55, 51, 1, 29, 16, 21, 21, 0, 21 

DJTTA 5, 0, 5, 12, 12, 4, 5, 2, 5, 9, 12, 1 

P=0: L=128 

READ P*: IF P$= H " THEN 4088 

P=P+1: IF P=12 THEN L=160 

P$(P)=P$: READ P* 

PRINTOL, USING "##) "iP, : PRINT P$; : L=L+64: GOTO 2018 

PRINTO896,CHR$<2i:>, 

LINEINPUT "SELECTION"; P$: IF P$="" THEN RUN "MENU" 

K=VAL(P*>: IF K=8 THEN CMD "S" 

IF K<0 OR K>P THEN 4000 

RUN Pf(K) 

' — DATA CONSISTS OF PROGRAM FILENAME AND DESCRIPTION 
THE MAXIMUM NUMBER OF PROGRAMS IS 24 IF TWEL -E OR 
FEWER PROGRAMS ARE LISTED, THE DESCRIPTION MAV BE 

' UP TO 68 CHARACTERS LONG IF THIRTEEN OR MOPE, THE 
DESCRIPTION MAV BE UP TO 26 CHARACTERS. 

' — FORMAT OF DATA LINE: 

' 6000 DATA FILENAME/BAS' "DESCRIPTION" 

DATA "": REM — MUST BE LAST DATA LINE 



TRS-80 USERS ! 

Watch for our exclusive series by "Doc Plumber 
The Outside Connection: 
Hooking your TRS-80 
to the outside world. . . 





the magazine of fun and education 
for people of all ages 
the different personal computing periodical! 

Recreational Computing takes you into the fulure of home, school and personal computing. Original 

articles, games, fiction and software. Programming languages that anyone can use. Stretches your 

mind while you have fun with your computer. Recreational Computing brings you: 

Games and Challenge* Simulations • Puz/.les -Teasers • Programs for You to Write • Worlds 

of IF for People to Explore. 

New Applications How personal computers affect society, from teaching the handicapped to 

streamlining home business. 

Free Software Lots of It! Classic Games Rewritten for the APPLE. PHT, SOL, TRS-80 and 

Others • Programs that Feature Animation and the Creative Use of Graphics. 

Languages Tiny BASIC and Tiny PILOT Started Here •What Next'.' Perhaps a Language 

Called CAN DALE • You Can Help Create It 

And More Music • Art • Robotics 

Reviews 'Opinions "Controversy. 

• Recreational Computing S10/yr., published bimonthly. Canada SI 7 First Class. 



SUBSCRIPTION ORDER 



NAMK 



ADDRESS 



□ Bill me (US. only) 
Signature 



CITY/STATE 



.ZIP. 



D Check enclosed. (Payment must be in US$ 
drawn on a US bank.) 



• Recreational Computing S 1 0/ > i . . published bimonthly Canada S17 



This offer good until 6/30/80 in 
U.S. & Canada only. 



m 



Send a facsimile of this form to 

People's Computer Company 

We are a non-profit educational corporation. 



1263 El Camino Real. Box E, Menlo Park. California 94025 
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Hello, My name is Robin Lloyd and I am 15 years old, and going into the 
tenth grade. I am the editors daugter. I would like to start a little some- 
thing for the young people who have fathers who are in the computer field and 
subscribe to the newsletter. I was thinking about starting a pen pal system. 
All you have to do is send me your name, age, address, hobbies and interests 
on a postcard or in a letter and I will have them printed up in the newsletter 
and if you find some one listed who has the same interests that you do then all 
you have to do is to write them and maybe you will meet some new friends. 
I would really like your cooperation on this project and I feel that it will 
help all of us to learn a little bit more about our parents' work and maybe it 
will help us to get interested in the same sort of job. If you have any 
questions about this project then feel free to write me and I will answer your 
questions as well as I can. 

Send your information toi 

Miss Robin Lloyd 
755h Southgate Rd. 
Fayetteville, NC 28304 



Thanks, 



tfptwu- 



ROBIN HOPE LLOYD 

AGE 15 

755^ SOUTHGATE RD. 

FAYETTEVILLE, NC 28304 

HOBBIES 

ROLLERSKATING 

HATCHING TELEVISION 

MUSIC 

GOING TO THE MOVIES 

SINGING 

DISCO DANCflNG 



Robin 



INTEREST 

COMPUTERS 

LISTENING TO MUSIC FROM THE 1950' s 

ARTS AND CRAFTS 

READING EDGAR ALLEN POE STORIES 



THE BITPICKER'S TOOLBOX 

By Steve MacGregor, 3701 W 'rfethersf ield, Phoenix, Arizona 85029 

This machine-language routine will convert a binary number from 
0000 to 1111 in the A register Into an ASCII hex digit: 

ADD A.90H 

DAA 

ADC A.A0H 

DAA 

This routine was lifted from the resident monitor of the Poly-88 
computer, and its operation is not at all obvious. 



MOTES : 

00 IN THE OPERAND INDICATES ONE BYTE OF IMMEDIATE DATA 
POPT NUMBER* OP RELATIVE-JUMP OFFSET. 

<NN> IN THE OPERAND INDICATES TWO BYTES OF IMMEDIATE DATA 
OR ABSOLUTE ADDRESS 

* BEFORE THE OP-CODE INDICATES THAT THE INSTRUCTION CAN 
BE PRECEEDED BY HEX "DO' OR 'FD' TO INDICATE THAT the IX 
OR IY REGISTER, RESPECTIVELY, IS TO BE ADDRESSED INSTEAD 
OF THE HL REGISTER 

t BEFORE THE OP-CODE INDICATES THAT THE FIRST BYTE OF THE 
INSTRUCTION CAN BE PRECEEDED BY HEX 'DD' OR 'FD' <T0 
INDICATE INDEXING BY THE IX OR IY REGISTER, RESPECTIVELY, 
INSTEAD OF THE HL REGISTER). AND FOLLOWED BY ONE BYTE OF 
OFFSET (IN TWO'S-COMPLEMENT FORM). 



OP 



(— ) 



<CB) 



(ED) 



ee 


NOP 




RLC 


B 


ei 


LD 


BC, <NN> 


RLC 


C 


02 


LD 


<BC),A 


RLC 


D 


03 


INC 


BC 


RLC 


E 


64 


INC 


B 


RLC 


H 


05 


DEC 


B 


RLC 


L 


06 


LD 


B,<N> 


•RLC 


(HL) 


0? 


RLCf 




RLC 


A 


08 


EX 


AF,AF' 


RRC 


B 


as 


*ADD 


HL,BC 


RRC 


C 


an 


LD 


A, (BC) 


RRC 


D 


0B 


DEC 


BC 


RRC 


E 


0C 


INC 


C 


RRC 


H 


0D 


DEC 


c 


RRC 


L 


0E 


LD 


COO 


#RRC 


(HL) 


3F 


RRCA 




PRC 


A 


10 


DJNZ 


<N> 


PL 


B 


11 


LD 


DE. <NN> 


PU- 


C 


12 


LD 


(DE), A 


RL 


D 


13 


INC 


DE 


RL 


E 


14 


INC 


D 


PL 


H 


15 


DEC 


D 


RL 


L 


lb 


LD 


D. <N> 


•RL 


(HL) 


1? 


RLA 




RL 


A 


18 


JR 


<N> 


PR 


B 


19 


♦ADD 


HL.DE 


PR 


C 


1A 


LD 


A, <D£> 


RR 


D 


IB 


DEC 


DE 


RR 


E 


1C 


INC: 


E 


PR 


H 


ID 


DEC 


E 


PR 


L 


IE 


LD 


e, <:n:» 


•RR 


(HL 1 ' 


IF 


RRA 




RR 


A 


20 


JR 


nz, :n> 


SLA 


B 


21 


*u> 


HL, <NN> 


SLA 


C 


22 


►LD 


knn:i-',hl 


SLA 


D 
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OP 



<— ) 



CCB) 



■'ED> 



23 


♦ INC 


HL 


SLA 


E 






24 


INC 


H 


SLfl 


H 






25 


DEC 


H 


SLA 


L 






26 


LO 


h, Cf© 


•SLA 


•:hl) 






27 


DAfi 




SLR 


R 






23 


JR 


2 <H> 


SRA 


B 






29 


*ADD 


HL,HL 


SRA 


c 






2fl 


*LD 


HL, •' euro 


SRfl 


D 






26 


*DEC 


HL 


SRA 


E 






2C 


INC 


L 


SRft 


H 






20 


DEC 


L 


SRft 


L 






2E 


LD 


L,<N> 


•SRft 


(HL) 






2F 


CPL 




SRft 


ft 






38 


JR 


NC,<N> 










31 


LD 


SP, <NN> 










22 


LD 


«NN».fl 










23 


INC 


SP 










24 


*INC 


<HL> 










35 


*OEC 


(HL) 










36 


♦LD 


(HL>,<N> 










3? 


SCF 












38 


JR 


C, <N> 


SRL 


B 






39 


♦ADD 


HL,SP 


SRL 


c 






3fl 


LO 


ft,SP 


SRL 


D 






38 


DEC 


SP 


SRL 


E 






3C 


INC 


R 


SRL 


H 






3D 


DEC 


ft 


SRL 


L 






3E 


LD 


A,<N> 


•SRL 


'HL) 






3F 


CCF 




SRL 


A 






46 


LD 


8/8 


BIT 


8,6 


IN 


B, (C) 


41 


LD 


B,C 


BIT 


8. C 


OUT 


O B 


42 


LO 


B.D 


BIT 


8,0 


SBC 


HL.BC 


43 


LO 


b,e 


BIT 


8,E 


LD 


(CM© »-BC 


44 


LD 


B,H 


BIT 


e,H 


NEG 




45 


LO 


B,L 


BIT 


8L 


RETN 




46 


•LD 


B, (HL) 


•BIT 


9, (HL) 


in 


8 


4? 


LO 


B,fl 


BIT 


8, ft 


LD 


I, ft 


48 


LD 


C,B 


BIT 


1,B 


IN 


C, <C) 


49 


LD 


CC 


BIT 


i,c • 


OUT 


(€:■'! 


4fl 


LD 


CD 


BIT 


1,0 


ROC 


HL,BC 


4B 


LD 


CE 


BIT 


i,E 


LD 


bc. ' -:nn>> 


4C 


LD 


C-H 


BIT 


1, H 






40 


LD 


C,L 


BIT 


1. L 


P£TI 




4E 


tLD 


C, (HL) 


•BIT 


1, (HL) 






4F 


LD 


C, R 


BIT 


1, ft 


LD 


R. ft 


56 


LD 


D-B 


BIT 


2,B 


IN 


D ' C ' 


51 


LD 


D,C 


BIT 


2 C 


OUT 


'■'"; d 


52 


LD 


D,D 


BIT 


2- C' 


SBC 


«., DE 


53 


LD 


D.E 


BIT 


2,E 


LO 


■ :w: . de 


54 


LD 


DH 


BIT 


2,H 






55 


LD 


D L 


3! T 


-. i 







op 


, — ;i 




(CB) 




'ED' 1 




56 


•LP 


':■■ • HL • 


•BIT 


2, (HL) 


in 


1 


<r~> 


LD 


"' H 


BIT 


2, ft. 


LD 


a i 


58 


L£> 


E, B 


BIT 


3,8 


IN 


E, (O 


"•■? 


LD 


E,C 


BIT 


3,C 


OUT 


<C>.E 


5fl 


LD 


E,D 


BIT 


3,0 


ADC 


hl,de 


58 


LD 


E,E 


BIT 


2,E 


LD 


oe. • :nn» 


5C 


lD 


E,H 


BIT 


?,H 






5D 


LD 


E, L 


BIT 


3,L 






5E 


•LD 


E. (HL) 


•BIT 


3, (HL) 


in 


2 


5F 


LD 


E.R 


BIT 


3,fl 


LD 


A,R 


68 


LD 


H,B 


BIT 


4.6 


IN 


H,(C) 


61 


LD 


H,C 


BIT 


4,C 


OUT 


(C),H 


62 


LD 


H,D 


BIT 


4,0 


SBC 


HL,HL 


63 


LD 


H,E 


BIT 


4,E 






64 


LD 


HH 


BIT 


4.H 






65 


LD 


H.L 


BIT 


4,1 






66 


•LD 


H, <HL) 


•BIT 


4, (HL) 






6? 


LD 


H,fl 


BIT 


4, ft 


RRD 




68 


LD 


LB 


BIT 


5,B 


IN 


L, (C) 


69 


LD 


L,C 


BIT 


5,C 


OUT 


(C), L 


6R 


LO 


UD 


BIT 


5,0 


ADC 


HL,HL 


6B 


LD 


L,E 


BIT 


5,E 






6C 


LD 


L,H 


BIT 


5,H 






6D 


LD 


UL 


BIT 


5,L 






6E 


•LO 


L, (HL) 


•BIT 


5, (HL) 






6F 


LD 


L,fl 


BIT 


5, A 


RLD 




78 


•LD 


<HL>,8 


BIT 


6,B 






71 


•LO 


(HL),C 


BIT 


6, C 






72 


•LO 


(HL),D 


BIT 


6,0 


SBC 


HL, SP 


72 


#LD 


(HL).E 


BIT 


6-E 


LD 


«NN». SP 


74 


•LD 


(HL), H 


BIT 


6,H 






75 


•LD 


(HL^L 


BIT 


0,1 






?« 


HALT 




•BIT 


6, 'HL) 






77 


•LD 


(HL).fl 


BIT 


6, ft 






~% 


LD 


ft, 8 


BIT 


7,B 


IN 


ft,(0 


79 


LD 


A,C 


BIT 


7.C 


OUT 


(O.ft 


~fl 


LD 


AD 


BIT 


7,D 


ADC 


HL,SP 


»@ 


• .■> 


A,E 


BIT 


7,E 


LD 


SP. 'CMN» 


7C 


LD 


fi,H 


BIT 


7,H 






70 


LD 


A L 


BIT 


7.L 






7c 


#LD 


fl,'.HL) 


»BI T 


7. 'HL) 






,T 


.D 


A, A 


BIT 


7. A 






:38 


ADD 


R,B 


PES 


8,6 






31 


ADD 


A,C 


RES 


8,C 






?2 


"-DD 


A,D 


PES 


".< 






82 


ADD 


A.E 


PES 


8,E 






54 


ADD 


A H 


RES 


8H 






85 


ADO 


ft,L 


RES 


8,L 






'36 


•fiOD 


A. (HL) 


•RES 


8, 'HL' 






£7 


ADD 


ft, ft 


RES 


8, A 
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OP 



(") 



(CB) 



•ED) 



S8 


80C 


ft,B 


PES 


1, B 




89 


80C 


8,C 


RES 


LC 




88 


8DC 


ft,D 


RES 


LD 




88 


ROC 


ft,E 


PES 


1,E 




8C 


8DC 


8,H 


PES 


1,H 




80 


80C 


8,L 


RES 


l/L 




8E 


•8DC 


8, (HL) 


•RES 


1, (HL) 




8F 


RDC 


8,8 


RES 


1,8 




90 


SUB 


8 


RES 


2,B 




91 


SUB 


C 


RES 


2,C 




92 


SUB 


D 


RES 


2,D 




93 


SUB 


E 


RES 


2.E 




94 


SUB 


H 


RES 


2,H 




95 


SUB 


L 


RES 


2, L 




96 


•SUB 


<HL) 


•RES 


2,(HL) 




9? 


SUB 


A 


RES 


2,8 




98 


SBC 


B 


RES 


3,B 




99 


SBC 


C 


RES 


3,C 




98 


SBC 


D 


RES 


3,D 




98 


SBC 


E 


RES 


3,E 




9C 


SBC 


H 


RES 


3,H 




90 


SBC 


I 


RES 


3,L 




9E 


•SBC 


<HL) 


•RES 


?. (HL) 




9F 


SBC 


A 


RES 


3,8 




88 


AND 


8 


RES 


4,B 


LDI 


fli 


AND 


C 


RES 


4,C 


CPI 


R2 


AND 


D 


RES 


4,D 


INI 


A3 


AND 


E 


RES 


4,E 


OUTI 


84 


AND 


H 


RES 


4,H 




85 


AND 


L 


RES 


4,L 




86 


•AND 


(HL) 


•RES 


4, (HL) 




87 


AND 


A 


RES 


4,8 




M 


XOR 


B 


RES 


5.B 


LDD 


R9 


XOR 


C 


RES 


5,C 


CPO 


88 


XOR 


D 


RES 


5,D 


IND 


R8 


XOR 


E 


RES 


5,E 


OUTD 


AC 


XOR 


H 


RES 


5,H 




80 


XOR 


L 


RES 


5L 




8E 


•XOR 


<HL) 


•RES 


5, (HL) 




8F 


XOR 


ft 


RES 


5, ft 




88 


OR 


B 


RES 


6,B 


LDIR 


Bl 


OR 


c 


RES 


6,C 


CPIR 


82 


OR 


D 


PES 


6,0 


INIR 


B3 


OP 


E 


RES 


6, E 


OTIR 


B4 


OR 


H 


RES 


6,H 




B5 


OP 


L 


PES 


6,L 




86 


•OR 


•HL> 


•RES 


6, 'HL) 




B? 


OR 


A 


RES 


6,8 




B8 


HP 


B 


RES 


7.B 


LDDR 


B9 


CP 


C 


PES 


7,C 


rpfiP 


B8 


CP 


D 


PES 


7,0 


INDR 



OP 


■--) 




<"C8) 




(ED> 


B8 


CP 


E 


RES 


7,E 


OTDP 


BC 


CP 


H 


RES 


7,H 




80 


CP 


L 


RES 


7,L 




BE 


•CP 


(HL) 


•RES 


7, (HL) 




BF 


CP 


A 


RES 


7,8 




C8 


RET 


NZ 


SET 


0,B 




CI 


POP 


BC 


SET 


e,c 




C2 


JP 


NZ,OfO 


SET 


8, D 




C3 


JP 


<NN> 


SET 


8,E 




C4 


CALL NZ,<NN> 


SET 


0,H 




C5 


PUSH BC 


SET 


e,L 




C6 


8DD 


8,<N> 


•SET 


e, <HL) 




C7 


RST 


8 


SET 


0,8 




C8 


RET 


Z 


SET 


LB 




C9 


RET 




SET 


i,C 




C8 


JP 


Z,<NH> 


SET 


LD 




C8 


»» COLUMN 2 — 


SET 


LE 




CC 


CALL 


Z,<NN> 


SET 


LH 




CO 


C8LL 


<NN> 


SET 


LL 




CE 


ADC 


<N> 


•SET 


L<HL) 




CF 


RST 


8 


SET 


L8 




00 


RET 


NC 


SET 


2*8 




01 


POP 


DE 


SET 


2,C 




02 


JP 


MC,<NN> 


SET 


2,D 




03 


OUT 


«N»,A 


SET 


2,E 




D4 


CALL NC, <NN> 


SET 


2,H 




05 


PUSH DE 


SET 


2,L 




06 


SUB 


<N> 


•SET 


2, (HL) 




D7 


RST 


16 


SET 


2,8 




08 


RET 


C 


SET 


3,B 




09 


EXX 




SET 


3,C 




DA 


JP 


C,<NN> 


SET 


3,0 




08 


IN 


a «n» 


SET 


3,E 




DC 


C8LL C, CNN> 


SET 


3,H 




00 


— INDEX IX == 


SET 


3,L 




DE 


SBC 


<H> 


•SET 


3, (HL) 




OF 


RST 


24 


SET 


3,8 




E8 


RET 


PO 


SET 


4,8 




El 


*POP 


HL 


SET 


4,C 




E2 


JP 


PO, <NN> 


SET 


4, D 




EJ 


*EX 


<SP),HL 


SET 


4,E 




E4 


CALL PO.<NN> 


SET 


4,H 




E5 


•PUSH HL 


SET 


4,L 




E6 


AND 


<N> 


•SET 


4, (HL^ 




E7 


RST 


32 


SET 


4,8 




E3 


RET 


PE 


SET 


5, B 




E9 


*JP 


(HL) 


SET 


5.C 




Eft 


IP 


PE,<NN> 


SET 


5,D 




EB 


EX 


DE.HL 


SET 


5. P 




EC 


CftLL 


pe, ate 


SET 


5, H 




ED 


== C 


OLUMN 3 == 


SET 


5,L 
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OP 



<--> 



rCgi 



ED; 



EE 


XOR 


:h: 


•SET 


5, <HL) 


EF 


RST 


40 


SET 


■J, A 


F0 


PET 


P 


SET 


6,6 


Fl 


POP 


AF 


SET 


6,C 


F2 


TP 


9, OtO 


SET 


6-D 


FZ 


DI 




SET 


&E 


F4 


CALL 


P. 'NN> 


SET 


6.H 


F5 


PUSH 


AF 


SET 


6,1 


F6 


OR 


<N> 


•SET 


6. (HL) 


F? 


RST 


48 


SET 


&A 


F9 


RET 


M 


SET 


7, B 


F9 


*LD 


SP.HL 


SET 


7,C 


FA 


JP 


It CNN> 


SET 


7,D 


FB 


DI 




SET 


7,E 


FC 


CALL 


n, <CNN> 


SET 


7,H 


FD 


== INDEX IV = 


SET 


7,L 


FE 


CP 


0© 


•SET 


7. (HL> 


FF 


RST 


56 


SET 


7, A 



NOT SO BASIC 



BREAK KEY OFF 

This command turns off the IBREAKI key: 

POKE 16396,23 
You can issue it as a direct command and any program that you then RUN will be unstoppable, except 
with the rear reset. You can also use it inside programs to transform the operation of the IBREAKI key 
to some other function. Example: 

10 POKE 16396,23: XX$=INKEY$: IF XX$="" THEN 10 ELSE AX«ASC(XX$> 
IF AX=2 THEN POKE 16396,25 : RETURN ELSE PRINT AX; : GOTO 10 

This subroutine is handy for program development. When you GOSUB 10 the subprogram prints the 
ASCII code of any key hit on the keyboard. Hitting the IBREAKI key, however, executes a RETURN, 
and also restores the operation of the IBREAKI key itself to normal. 

The subroutine works because when the IBREAKI key is turned off, its ASCII code becomes 2. It is 
usually 1. 

You can use the same technique for other features. If you replace the underlined part of the subprogram 
above with: 

IF AX=2THEN RUN ELSE PRINT AX;: GOTO 10 

the IBREAKI key automatically restarts the resident program. Expand this feature into your longer 
programs and you can effectively make your programs have positive, complete control over the keyboard 



Expanding a little on the above, replace the underlined oart of the subroutine with: 

IFAX=96THEN RUN ELSE IF AX=2 THEN POKE 16396,25: RETURN 
ELSE PRINT AX;: GOTO 10 

Pressing the shift-® key TWICE restarts your whole resident program, and pressing IBREAKI re- 
turns you from the subroutine. The "automatic secret restart code" - the two shift-@'s - is 
part of your TRS' normal logic. The first shift -@ stops the program, awaiting the touch of any 
key Unless the "restart" key is another shift®, the routine simply reads and prints the character. 
Expanding this logic to all input logic in your program lets you offer flexibility, yet tight control, 
in your user-oriented work. 



SPECIAL-KEY NOTATION 

One convention that makes for attractive programs is the display of keyboard instructions. This 
program initialization line sets up some string variables for display: 

10 CLEAR 500: DEFSTR W : WL-CHR${133) : WR=CHRS(138): 

WE=WL+"ENTER"+WR : WB«WL+"BREAK"+WR : WS ■ WL+"SHIFT"+WR : 
WC=WL+"CLEAR"+WR : WA=WS+" "+CHR$(125) : 
WX-WE+" TO CONTINUE" : WW=CHR$(31) : WH=CHR$(28) 

The following subroutine prints standard INPUT keyboard instructions, and returns the cursor to 

.ts last position: g0CM Q1«PEEK(16416):Q2=PEEK(16417):Q3=PEEK(16418):PRINT CHR$(15>; 
60010 PRINT@704,STRING$(64,143).-WW;: PRINT@731," KEYBOARD* 

";TAB(8);CHR$(125);" TO BACKSPACE & CORRECT* 

";WA." TO ERASE ENTIRE LINE ♦ 

";WB;" TO RESTART PROGRAM ♦ 

".WE;" AFTER TYPING YOUR ENTRY"; 
60020 POKE 16416. Q1 : POKE 16417, Q2 : POKE 16418, Q3 : RETURN 
60030 Q1-PEEK(16416):O2*PEEK(16417):Q3-PEEK(16418):PRINT@704, 

ST R I NG$(64, 1 43).WW.WX; 
60040 WMNKEY$ : IF WI="THEN60040ELSE IF ASC(WI)<>13 THEN 

60040 ELSE PRINT CHR$(29),WW;: GOTO 60020 

Calling GOSUB 60000 from a program prints the INPUT instructions at screen bottom. Calling 
GOSUB 60030 goes to a subroutine that waits for an I ENTER I to continue. Both routines will re- 
turn the cursor to where it was before the call. 

The down-arrow at the end of lines in 60010 mean just that - hit the down-arrow 
key It becomes part of the text string. 

Tapes with these subroutines are available from me, $3.00 each. Address is under "NOT 
SO BASIC" at the top. 
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LEVEL I AND LEVEL II 

•1. ID*- I CASSETTE DATA BASE $29. 

#2. INV-I INVENTORY CONTROL $28. 

•3 STOCK-I SECURITY INFO. $18. 

#4 BANK-I CHECK BALANCE $10 

•5 FINANCE-I STOCK-I A BANK-I $15 



DISKETTE 

M2. HAIL-III NAILING LIST $35. 

•14. HORD-III WORD PROCESSOR $35. 
•21 INV-I I I INVENTORY CONTROL $35. 
•22 KEV-III KEV RANDOM ACCESS $15. 

PRICE INCLUDES POSTAGE , CASSETTER ft DOCU. 



LEVEL II 




•11 


WORD-I WORD PROCESSOR 


$25. 


•15. 


NAIL- I NAME AND ADDRESS 


$25. 


•16 


SORT-I SORT UTILITV 


$18. 


•17 


STAT-I STATISTICS 


$18 


•18. 


KEY- I KEV-ACCESS 


$19 


•19 


SALE-I SALE ANALYSIS 


$18. 


•28 


UTIL-I SORT-I «. KEV-I 

MICRO ARCHITECT 
96 DOTHAN ST. 
ARLINGTON, HA 82174 


$16. 



T H 2 BITPICKER'S TOOLBOX 

By Steve XacGregor, 3701 rf Wethersf leld, Phoenix, Arizona 85029 

The INT function of BASIC can be thought of as a "round -down" 
function, so that INT(X) is the greatest integer less than or 
equal to X. To do a "round-off", use INT(X*.5), and get the 
closest Integer to X. If you need to "round-up", -INT(-I) will 
give the least Integer greater than or equal to X. 
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